home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8606a.d64 / def fn sinnvoll (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  649b  |  20 lines
  1. 10 TD=56328:REM ECHTZEITUHR SEC/10-REGISTER
  2. 20 POKETD+6,PEEK(TD+6)AND127:REM 50 HZ EINSTELLEN
  3. 30 DEF FN U4(X) = (XAND15):REM UNTERE 4 BITS VON X
  4. 40 DEF FN O4(X)=(XAND240)/16:REM OBERE 4 BITS
  5. 50 DEF FN DC(X)=FN U4(X)+FN O4(X)*10:REM WERT BEI BCD-CODIERUNG
  6. 60 DEF FN DI(X)=FN DC(PEEK(X)AND127):REM BCD-INHALT VON X OHNE BIT 7
  7. 70 DEF FN H(X)=FN DI(TD+3):REM STUNDEN
  8. 80 DEF FN M(X)=FN DI(TD+2):REM MINUTEN
  9. 90 DEF FN S(X)=FN DI(TD+1):REM SEKUNDEN
  10. 100 DEF FN DH(X)=X-INT(X/10)*10+INT(X/10)*16:REM DEZIMAL NACH BCD
  11. 110 INPUT"UHRZEIT HH,MM,SS";HH,MM,SS
  12. 120 IFHH>12THENHH=HH-12
  13. 130 POKETD+3,FN DH(HH):REM UHR STELLEN
  14. 140 POKETD+2,FN DH(MM)
  15. 150 POKETD+1,FN DH(SS)
  16. 160 POKETD+0,0
  17. 170 PRINT"[147]"
  18. 180 PRINT""FN H(X)"[157]"FN M(X)"[157]"FN S(X)"[157]"PEEK(TD)"";
  19. 190 GOTO180
  20.